inherited frmCadEditora: TfrmCadEditora
  Caption = 'frmCadEditora'
  PixelsPerInch = 96
  TextHeight = 13
  inherited pnlTool: TPanel
    inherited btnIncluir: TSpeedButton
      OnClick = btnIncluirClick
    end
    inherited btnAlterar: TSpeedButton
      OnClick = btnAlterarClick
    end
    inherited btnExcluir: TSpeedButton
      OnClick = btnExcluirClick
    end
    inherited btnVisualizar: TSpeedButton
      OnClick = btnVisualizarClick
    end
    inherited btnSelecionar: TSpeedButton
      Left = 614
      Caption = 'S&elecionar'
      Visible = True
      OnClick = btnSelecionarClick
    end
  end
  inherited pnPesq: TPanel
    inherited cbOrdemPesq: TComboBox
      ItemIndex = 0
      Text = 'Ascendente'
      Items.Strings = (
        'Ascendente'
        'Descendente')
    end
    inherited btPesquisar: TBitBtn
      OnClick = btPesquisarClick
    end
    inherited cbbNomeCampo: TComboBox
      ItemIndex = 1
      Text = 'Nome'
      Items.Strings = (
        'ID'
        'Nome'
        'Estado'
        'Abreviatura')
    end
  end
  inherited Grid: TDBGrid
    DataSource = dsListagem
    Columns = <
      item
        Expanded = False
        FieldName = 'ID'
        Width = 30
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'abv'
        Title.Caption = 'Abv.'
        Width = 90
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Nome'
        Width = 378
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CIDADE'
        Width = 178
        Visible = True
      end>
  end
  object zqryEditora: TZQuery
    Connection = dmConexao.zcBiblio
    SQL.Strings = (
      'Select * from EDITORA'
      'order by abv')
    Params = <>
    Left = 416
    Top = 188
    object zqryEditoraID: TIntegerField
      FieldName = 'ID'
      Required = True
    end
    object zqryEditoraNome: TStringField
      FieldName = 'Nome'
      Size = 60
    end
    object zqryEditoraCIDADE: TStringField
      FieldName = 'Estado'
    end
    object zqryEditoraabv: TStringField
      FieldName = 'abv'
      Required = True
    end
  end
  object dsListagem: TDataSource
    DataSet = zqryEditora
    Left = 490
    Top = 190
  end
end
